home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / tour.dxr / 00009_credit button.ls < prev    next >
Encoding:
Text File  |  2000-01-21  |  772 b   |  27 lines
  1. property ancestor, pButtonName
  2.  
  3. on new me, buttonName, castName, theChannel, theStageLoc, descendant
  4.   if objectp(descendant) then
  5.     ancestor = new(script("locking button"), buttonName, castName, theChannel, theStageLoc, descendant)
  6.   else
  7.     ancestor = new(script("locking button"), buttonName, castName, theChannel, theStageLoc, me)
  8.   end if
  9.   pButtonName = buttonName
  10.   return me
  11. end
  12.  
  13. on performFunction me
  14.   global CreditList, firstCredit
  15.   if not firstCredit then
  16.     repeat with X = 5 to 7
  17.       if not (X = the rollOver) then
  18.         creditObj = getaProp(CreditList, X)
  19.         simulateClickOff(creditObj)
  20.       end if
  21.     end repeat
  22.   end if
  23.   set the puppet of sprite 8 to 1
  24.   set the member of sprite 8 to member(pButtonName && "Credits")
  25.   updateStage()
  26. end
  27.